home *** CD-ROM | disk | FTP | other *** search
/ ROM 2 / ROM 2.adf / Install < prev    next >
Text File  |  1992-09-02  |  2KB  |  105 lines
  1. ; $VER: ROM-Install-Script v1.0 (30-11-94)
  2. ; Copyright © 1994 by EssEncE & The ROM Team
  3.  
  4. (complete 0)
  5.  
  6. (set OK 0)
  7.  
  8. (message "\n\n\n\n\nWelcome to the ROM Installation\n\n\n"
  9.          "Copyright © 1994 by Essence & The ROM Team")
  10.  
  11. (complete 10)
  12.  
  13. (set DestPath
  14.     (askdir
  15.         (prompt "Where should I install ROM?")
  16.         (help "\n  ROM will be installed in the choosen path,\n"
  17.                         "  creating the directory 'ROM'.")
  18.         (default "SYS:")
  19.     )
  20. )
  21.  
  22. (if
  23.     (askbool
  24.         (prompt "\n\nAre you sure, that ROM should be\n"
  25.             "installed in\n\n\n'"
  26.             DestPath
  27.             "'\n\n\n(A new directory called 'ROM' will be created,\n"
  28.             "where you will find the main executable\n"
  29.                         "and all the necessary data files.)'")
  30.         (help "\n  If you don't want to install ROM in the\n"
  31.                 "  choosen directory, select the NO Gadget.\n\n"
  32.                 "  If you think that the selected directory is\n"
  33.                 "  up to your tastes, then press YES.")
  34.     )
  35.     (set OK 1)
  36. )
  37.  
  38. (if (= OK 1)
  39.     (
  40.         (complete 20)
  41.  
  42.         (set FinalPath (cat (tackon DestPath "ROM")))
  43.  
  44.         (set DataPath (cat (tackon FinalPath "DATA")))
  45.  
  46.         (makedir
  47.             (FinalPath)
  48.             (infos)
  49.         )
  50.  
  51.         (makedir
  52.             (DataPath)
  53.             (infos)
  54.         )
  55.  
  56.         (askdisk
  57.             (prompt "\n\n\n\nPlease insert the first ROM disk\n\n"
  58.                 "'ROM2a'\n\n"
  59.                 "in any drive")
  60.             (help "\n  Only one thing:\n"
  61.                   "      INSERT THE RIGHT DISK")
  62.             (dest "ROM2a")
  63.         )
  64.  
  65.         (complete 30)
  66.  
  67.         (copyfiles
  68.             (source "ROM2a:")
  69.             (dest FinalPath)
  70.             (pattern "(ROM_2)")
  71.             (optional "force")
  72.         )
  73.  
  74.         (complete 40)
  75.  
  76.         (copyfiles
  77.             (source "ROM2a:S")
  78.             (dest FinalPath)
  79.             (pattern "(ROM_2.info)")
  80.             (optional "force")
  81.         )
  82.  
  83.         (complete 50)
  84.  
  85.         (copyfiles
  86.             (source "ROM2A:")
  87.             (dest DataPath)
  88.             (pattern "ROM2_00.data")
  89.             (optional "force")
  90.         )
  91.  
  92.     )
  93. )
  94.  
  95. (complete 100)
  96.  
  97. (set default-dest DestPath)
  98.  
  99. (message "\n\nInstallation complete!\n\n"
  100.          "Now make sure to change the tool type variable\n"
  101.          "'FullPathName' of ROM_2.info, into\n"
  102.          Destpath)
  103.  
  104. (exit)
  105.